home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / rnd colr bars.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  877b  |  24 lines
  1. 10 :PRINTCHR$(147);CHR$(14);:REM CLEAR      SCREEN - LOWER CASE
  2. 20 :PRINT"",CHR$(18);" [210][193][206][196][207][205][160][195][207][204][207][213][210][160][194][193][210][211][160]":REM TITLE(RVS ON)
  3. 25 REM CREDIT AND INSTRUCTIONS
  4. 30 :PRINT"[195]HARLIE [208]ATERSON   [212]ORONTO   [195]ANADA"
  5. 34 :PRINT"     [212][208][213][199][160]#2280          1983 07 14"
  6. 40 :PRINT"      [212]HIS PROGRAM WILL CONTINUOUSLY"
  7. 50 :PRINT" DISPLAY A RANDOM SELECTION OF THE"
  8. 60 :PRINT" SIXTEEN COLOURS AVAILABLE ON THE [195]64."
  9. 70 :PRINT"      [215]HEN EYEBALL RELIEF NEEDED PRESS   [210][213][206]/[211][212][207][208] & [210][197][211][212][207][210][197]."
  10. 80 :FOR TM = 1 TO 7000:NEXT TM:REM TIME     DELAY FOR INSTRUCTIONS
  11. 90 :PRINT CHR$(147);CHR$(142);:REM CLEAR    SCREEN - UPPER CASE
  12. 95 REM COLOURS DATA
  13. 100 :DATA 5,28,30,31,129,144,149,150
  14. 110 :DATA 151,152,153,154,155,156,158,159
  15. 115 REM PRINT COLOUR BAR
  16. 120 :PRINT CHR$(18); "       ";
  17. 125 REM RANDOM COLOUR SELECTION PROGRAM
  18. 130 :A = INT(16*RND(1))+1
  19. 140 : FOR T = 1 TO 16
  20. 150 : READ CL
  21. 160 : IF T = A THEN PRINT CHR$(CL);
  22. 170 :NEXT T
  23. 180 CLR:RESTORE:GOTO 120:REM GO FOR NEXT    PRINT AND COLOUR SELECTION
  24.